1 Source

## 
## > library(tidyverse)
## 
## > library(R6)
## 
## > Market <- R6Class("Market", public = list(total = NA, 
## +     price = NULL, dprice = NULL, trial = 1, mrow = NA, mcol = NA, 
## +     change = NA, board .... [TRUNCATED] 
## 
## > Player <- R6Class("Player", public = list(type = NULL, 
## +     cash = NULL, stock = NULL, value = NULL, asset = NULL, decision = NULL, 
## +     total = .... [TRUNCATED]

3 Plot